<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<title>Template Units For Numerical Applications</title>
<link href="TUNAstyles.css" rel="stylesheet" type="text/css">
<link href="tabs.css" rel="stylesheet" type="text/css">
<style type="text/css">

.cabeza_cell {
  border-left: 1px solid #000000;
  border-right: 1px solid #000000;
  border-bottom: 1px solid #000000;
  border-top: 1px solid #000000;
  font-family: Arial,Helvetica,sans-serif;
  font-size: 11pt;
  background-color: #ffffff;
  font-weight: lighter;
  color: #000000;
  text-decoration: none;
}
</style>

</head><body>
<div>
<table align="center" width="640" border="0" cellspacing="2" cellpadding="5" class="border">
<tr>
 <td class="cabeza_cell"> 

  <font style="font-family: helvetica; color: #000000;" size=4>
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>TUNA</font> :
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>T</font>emplate
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>U</font>nits for
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>N</font>umerical 
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>A</font>pplications
 </font><br>
  
</td>
</tr>

<tr>
<td class="cabeza_cell">
 <span style="font-family: helvetica; color: #336699;">
 Documentation Ver 1.0.0 August 2011 by
 <a href="http://mmc.geofisica.unam.mx/luiggi">Luis M. de la Cruz</a> <br>
 <a href="http://mmc.geofisica.unam.mx"> GMMC </a> -
 <a href="http://www.geofisica.unam.mx/recnat/"> Depto. de Recursos Naturales </a> -
 <a href="http://www.geofisica.unam.mx"> Instituto de Geof&iacute;sica </a> -
 <a href="http://www.unam.mx"> UNAM </a><br>
 </span>
 </td>

</tr>

</table>
</div>
<br>
<!-- Generated by Doxygen 1.7.4 -->
<script type="text/javascript"><!--
var searchBox = new SearchBox("searchBox", "search",false,'Search');
--></script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="annotated.html"><span>Classes</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li id="searchli">
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>File&#160;Members</span></a></li>
    </ul>
  </div>
<div class="header">
  <div class="headertitle">
<div class="title">Examples/09FlowInPorousMedia/FS/BLES1.hpp</div>  </div>
</div>
<div class="contents">
<div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="preprocessor">#ifndef _BLES1_H_</span>
<a name="l00002"></a>00002 <span class="preprocessor"></span><span class="preprocessor">#define _BLES1_H_</span>
<a name="l00003"></a>00003 <span class="preprocessor"></span>
<a name="l00004"></a>00004 <span class="preprocessor">#include &quot;./TwoPhaseEquation.hpp&quot;</span>
<a name="l00005"></a>00005 
<a name="l00006"></a>00006 <span class="keyword">namespace </span>Tuna {
<a name="l00007"></a>00007 
<a name="l00008"></a>00008   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T, <span class="keywordtype">int</span> Dim&gt; <span class="keyword">class </span>BLES1;
<a name="l00009"></a>00009 
<a name="l00010"></a>00010   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T&gt;
<a name="l00011"></a>00011   <span class="keyword">struct </span>Typeinfo &lt;BLES1&lt;T, 1&gt; &gt; {
<a name="l00012"></a>00012     <span class="keyword">typedef</span> T prec_t;
<a name="l00013"></a>00013     <span class="keyword">enum</span> { Dim = 1 };
<a name="l00014"></a>00014   };
<a name="l00015"></a>00015 
<a name="l00016"></a>00016   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T&gt;
<a name="l00017"></a>00017   <span class="keyword">struct </span>Typeinfo &lt;BLES1&lt;T, 2&gt; &gt; {
<a name="l00018"></a>00018     <span class="keyword">typedef</span> T prec_t;
<a name="l00019"></a>00019     <span class="keyword">enum</span> { Dim = 2 };
<a name="l00020"></a>00020   };
<a name="l00021"></a>00021 
<a name="l00022"></a>00022   <span class="keyword">template</span> &lt;<span class="keyword">typename</span> T&gt;
<a name="l00023"></a>00023   <span class="keyword">struct </span>Typeinfo &lt;BLES1&lt;T, 3&gt; &gt; {
<a name="l00024"></a>00024     <span class="keyword">typedef</span> T prec_t;
<a name="l00025"></a>00025     <span class="keyword">enum</span> { Dim = 3 };
<a name="l00026"></a>00026   };
<a name="l00027"></a>00027   
<a name="l00028"></a>00028   <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00029"></a>00029   <span class="keyword">class </span>BLES1 : <span class="keyword">public</span> TwoPhaseEquation&lt;BLES1&lt;Tprec, Dim&gt; &gt;
<a name="l00030"></a>00030   {
<a name="l00031"></a>00031 
<a name="l00032"></a>00032     <span class="keyword">typedef</span> TwoPhaseEquation&lt;BLES1&lt;Tprec, Dim&gt; &gt; TP_BLES1;
<a name="l00033"></a>00033 
<a name="l00034"></a>00034     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::aE;
<a name="l00035"></a>00035     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::aW;
<a name="l00036"></a>00036     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::aN;
<a name="l00037"></a>00037     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::aS;
<a name="l00038"></a>00038     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::aF;
<a name="l00039"></a>00039     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::aB;
<a name="l00040"></a>00040     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::aP;
<a name="l00041"></a>00041     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::sp;
<a name="l00042"></a>00042     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::dx;
<a name="l00043"></a>00043     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::dy;
<a name="l00044"></a>00044     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::dz;
<a name="l00045"></a>00045     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::dt;
<a name="l00046"></a>00046     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::bi;
<a name="l00047"></a>00047     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::ei;
<a name="l00048"></a>00048     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::bj;
<a name="l00049"></a>00049     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::ej;
<a name="l00050"></a>00050     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::bk;
<a name="l00051"></a>00051     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::ek;
<a name="l00052"></a>00052     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::applyBoundaryConditions1D;
<a name="l00053"></a>00053     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::applyBoundaryConditions2D;
<a name="l00054"></a>00054     <span class="keyword">using</span> GeneralEquation&lt; TP_BLES1 &gt;::applyBoundaryConditions3D;
<a name="l00055"></a>00055 
<a name="l00056"></a>00056     <span class="keyword">using</span> TP_BLES1::S;
<a name="l00057"></a>00057     <span class="keyword">using</span> TP_BLES1::p;
<a name="l00058"></a>00058     <span class="keyword">using</span> TP_BLES1::phi_0;
<a name="l00059"></a>00059     <span class="keyword">using</span> TP_BLES1::Srw;
<a name="l00060"></a>00060     <span class="keyword">using</span> TP_BLES1::Sro;
<a name="l00061"></a>00061     <span class="keyword">using</span> TP_BLES1::mu_w;
<a name="l00062"></a>00062     <span class="keyword">using</span> TP_BLES1::mu_o;
<a name="l00063"></a>00063     <span class="keyword">using</span> TP_BLES1::k;
<a name="l00064"></a>00064     <span class="keyword">using</span> TP_BLES1::porosity;
<a name="l00065"></a>00065     <span class="keyword">using</span> TP_BLES1::rank;
<a name="l00066"></a>00066     <span class="keyword">using</span> TP_BLES1::injection;
<a name="l00067"></a>00067 
<a name="l00068"></a>00068   <span class="keyword">public</span>:
<a name="l00069"></a>00069     <span class="keyword">typedef</span> Tprec prec_t;
<a name="l00070"></a>00070     <span class="keyword">typedef</span> <span class="keyword">typename</span> TunaArray&lt;prec_t, Dim &gt;::huge ScalarField;
<a name="l00071"></a>00071     
<a name="l00072"></a>00072     BLES1() : TwoPhaseEquation&lt;BLES1&lt;prec_t, Dim &gt; &gt;() { }    
<a name="l00073"></a>00073     ~BLES1() { };
<a name="l00074"></a>00074     
<a name="l00075"></a>00075     <span class="keyword">inline</span> <span class="keywordtype">bool</span> calcCoefficients1D(); 
<a name="l00076"></a>00076     <span class="keyword">inline</span> <span class="keywordtype">bool</span> calcCoefficients2D();
<a name="l00077"></a>00077     <span class="keyword">inline</span> <span class="keywordtype">bool</span> calcCoefficients3D();
<a name="l00078"></a>00078     <span class="keyword">inline</span> <span class="keywordtype">void</span> printInfo() { std::cout &lt;&lt; <span class="stringliteral">&quot; BLES1 &quot;</span>; }
<a name="l00079"></a>00079   };
<a name="l00080"></a>00080 
<a name="l00081"></a>00081 <span class="comment">/*</span>
<a name="l00082"></a>00082 <span class="comment"> *  Lineal for realtive permeability , Upwind for Sw</span>
<a name="l00083"></a>00083 <span class="comment"> */</span>
<a name="l00084"></a>00084 <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00085"></a>00085 <span class="keyword">inline</span> <span class="keywordtype">bool</span> BLES1&lt;Tprec, Dim&gt;::calcCoefficients1D () 
<a name="l00086"></a>00086 {
<a name="l00087"></a>00087     <span class="keyword">static</span> prec_t Sw_e, Sw_w;
<a name="l00088"></a>00088 
<a name="l00089"></a>00089     <span class="comment">// Lineal </span>
<a name="l00090"></a>00090     <span class="keyword">static</span> prec_t mult = k * dt / 
<a name="l00091"></a>00091       ( porosity * dx * dx * (1 - Srw - Sro) * mu_w );
<a name="l00092"></a>00092       
<a name="l00093"></a>00093     aE = 0.0; aW = 0.0; aP = 0.0; sp = 0.0;
<a name="l00094"></a>00094 
<a name="l00095"></a>00095     <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i =  bi; i &lt;= ei; ++i) {      
<a name="l00096"></a>00096 
<a name="l00097"></a>00097       <span class="comment">// Upwind</span>
<a name="l00098"></a>00098       <span class="keywordflow">if</span> ( phi_0(i+1) &gt;= phi_0(i) ) Sw_e = phi_0(i+1);
<a name="l00099"></a>00099       <span class="keywordflow">else</span>                          Sw_e = phi_0(i);
<a name="l00100"></a>00100       <span class="keywordflow">if</span> ( phi_0(i-1) &gt;= phi_0(i) ) Sw_w = phi_0(i-1);
<a name="l00101"></a>00101       <span class="keywordflow">else</span>                          Sw_w = phi_0(i);
<a name="l00102"></a>00102 
<a name="l00103"></a>00103       <span class="comment">// Lineal</span>
<a name="l00104"></a>00104       aE (i) = (Sw_e - Srw) * mult;
<a name="l00105"></a>00105       aW (i) = (Sw_w - Srw) * mult;
<a name="l00106"></a>00106       aP (i) = aE (i) + aW (i);      
<a name="l00107"></a>00107     }
<a name="l00108"></a>00108 
<a name="l00109"></a>00109 <span class="comment">/* ----- Boundary conditions ----- */</span>
<a name="l00110"></a>00110 
<a name="l00111"></a>00111     <span class="comment">// I&#39;m using an explicit scheme, so the boundary conditions are</span>
<a name="l00112"></a>00112     <span class="comment">// different than in the implicit case.</span>
<a name="l00113"></a>00113 
<a name="l00114"></a>00114     <span class="comment">// Dirichlet right side</span>
<a name="l00115"></a>00115     aP(ei) += aE(ei);
<a name="l00116"></a>00116     sp(ei) = 2 * aE(ei) * p(ei+1);
<a name="l00117"></a>00117     aE(ei) = 0;
<a name="l00118"></a>00118 
<a name="l00119"></a>00119     <span class="comment">// Neumann left side</span>
<a name="l00120"></a>00120     <span class="comment">// Remember that Sw_e = 0.8 on the boundary, that is</span>
<a name="l00121"></a>00121     <span class="comment">// the reason why sp(bi) has the form below.</span>
<a name="l00122"></a>00122     aP(bi) -= aW(bi) ;
<a name="l00123"></a>00123     sp(bi) = aW(bi) * dx * ( 3.47e-7 * mu_w / k) ;
<a name="l00124"></a>00124     aW(bi) = 0;
<a name="l00125"></a>00125     
<a name="l00126"></a>00126     <span class="keywordflow">return</span> 0;
<a name="l00127"></a>00127 }
<a name="l00128"></a>00128 
<a name="l00129"></a>00129 
<a name="l00130"></a>00130 <span class="comment">/*</span>
<a name="l00131"></a>00131 <span class="comment"> *  Lineal for realtive permeability , Upwind for Sw</span>
<a name="l00132"></a>00132 <span class="comment"> */</span>
<a name="l00133"></a>00133 <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00134"></a>00134 <span class="keyword">inline</span> <span class="keywordtype">bool</span> BLES1&lt;Tprec, Dim&gt;::calcCoefficients2D () 
<a name="l00135"></a>00135 {
<a name="l00136"></a>00136   <span class="keyword">static</span> prec_t Sw_e, Sw_w, Sw_n, Sw_s;
<a name="l00137"></a>00137 
<a name="l00138"></a>00138     <span class="comment">// Lineal </span>
<a name="l00139"></a>00139   <span class="keyword">static</span> prec_t multx = k * dt / 
<a name="l00140"></a>00140     ( porosity * dx * dx * (1 - Srw - Sro) * mu_w );
<a name="l00141"></a>00141 
<a name="l00142"></a>00142   <span class="keyword">static</span> prec_t multy = k * dt / 
<a name="l00143"></a>00143     ( porosity * dy * dy * (1 - Srw - Sro) * mu_w );
<a name="l00144"></a>00144 
<a name="l00145"></a>00145   aE = 0.0; aW = 0.0; aN = 0.0; aS = 0.0; aP = 0.0; sp = 0.0;
<a name="l00146"></a>00146   
<a name="l00147"></a>00147   <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i =  bi; i &lt;= ei; ++i)
<a name="l00148"></a>00148     <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j = bj; j &lt;= ej; ++j) {  
<a name="l00149"></a>00149 
<a name="l00150"></a>00150       <span class="comment">// Upwind</span>
<a name="l00151"></a>00151       <span class="keywordflow">if</span> ( phi_0(i+1, j) &gt;= phi_0(i, j) ) Sw_e = phi_0(i+1, j);
<a name="l00152"></a>00152       <span class="keywordflow">else</span>                                Sw_e = phi_0(i  , j);
<a name="l00153"></a>00153       <span class="keywordflow">if</span> ( phi_0(i-1, j) &gt;= phi_0(i, j) ) Sw_w = phi_0(i-1, j);
<a name="l00154"></a>00154       <span class="keywordflow">else</span>                                Sw_w = phi_0(i  , j);
<a name="l00155"></a>00155 
<a name="l00156"></a>00156       <span class="keywordflow">if</span> ( phi_0(i, j+1) &gt;= phi_0(i, j) ) Sw_n = phi_0(i, j+1);
<a name="l00157"></a>00157       <span class="keywordflow">else</span>                                Sw_n = phi_0(i, j);
<a name="l00158"></a>00158       <span class="keywordflow">if</span> ( phi_0(i, j-1) &gt;= phi_0(i, j) ) Sw_s = phi_0(i, j-1);
<a name="l00159"></a>00159       <span class="keywordflow">else</span>                                Sw_s = phi_0(i, j);
<a name="l00160"></a>00160 
<a name="l00161"></a>00161       <span class="comment">// Lineal</span>
<a name="l00162"></a>00162       aE (i, j) = (Sw_e - Srw) * multx;
<a name="l00163"></a>00163       aW (i, j) = (Sw_w - Srw) * multx;
<a name="l00164"></a>00164       aN (i, j) = (Sw_n - Srw) * multy;
<a name="l00165"></a>00165       aS (i, j) = (Sw_s - Srw) * multy;
<a name="l00166"></a>00166       aP (i, j) = aE (i, j) + aW (i, j) + aN (i, j) + aS (i, j);
<a name="l00167"></a>00167     }
<a name="l00168"></a>00168 
<a name="l00169"></a>00169   applyBoundaryConditions2D();
<a name="l00170"></a>00170 
<a name="l00171"></a>00171   <span class="comment">// Source for injection : </span>
<a name="l00172"></a>00172   sp (bi, bj) +=  injection * dt / (porosity * dx * dy);
<a name="l00173"></a>00173   <span class="comment">//  sp (bi, bj) +=  injection * dt / (porosity);</span>
<a name="l00174"></a>00174 
<a name="l00175"></a>00175 <span class="comment">/*</span>
<a name="l00176"></a>00176 <span class="comment">  sp (ei, ej) +=  injection * dt / (porosity * dx * dy);</span>
<a name="l00177"></a>00177 <span class="comment">  sp (bi, ej) +=  injection * dt / (porosity * dx * dy);</span>
<a name="l00178"></a>00178 <span class="comment">  sp (ei, bj) +=  injection * dt / (porosity * dx * dy);</span>
<a name="l00179"></a>00179 <span class="comment">*/</span>
<a name="l00180"></a>00180 
<a name="l00181"></a>00181   <span class="comment">// Sink for extraction :  </span>
<a name="l00182"></a>00182   sp (ei, ej) -= injection * dt * phi_0(ei, ej) / ( porosity * dx * dy);
<a name="l00183"></a>00183   <span class="comment">//  sp (ei, ej) -= injection * dt * phi_0(ei, ej) / ( porosity);</span>
<a name="l00184"></a>00184 
<a name="l00185"></a>00185 <span class="comment">//  sp (ei/2+1, ej/2+1) -= 4 * injection * dt * phi_0(ei/2+1, ej/2+1) / ( porosity * dx * dy);</span>
<a name="l00186"></a>00186 
<a name="l00187"></a>00187 
<a name="l00188"></a>00188   <span class="comment">/* ----- Boundary conditions ----- */</span>
<a name="l00189"></a>00189 
<a name="l00190"></a>00190 
<a name="l00191"></a>00191 
<a name="l00210"></a>00210     <span class="keywordflow">return</span> 0;
<a name="l00211"></a>00211 }
<a name="l00212"></a>00212 
<a name="l00213"></a>00213 <span class="comment">/*</span>
<a name="l00214"></a>00214 <span class="comment"> *  Lineal for realtive permeability , Upwind for Sw</span>
<a name="l00215"></a>00215 <span class="comment"> */</span>
<a name="l00216"></a>00216 <span class="keyword">template</span>&lt;<span class="keyword">typename</span> Tprec, <span class="keywordtype">int</span> Dim&gt;
<a name="l00217"></a>00217 <span class="keyword">inline</span> <span class="keywordtype">bool</span> BLES1&lt;Tprec, Dim&gt;::calcCoefficients3D () 
<a name="l00218"></a>00218 {
<a name="l00219"></a>00219   <span class="keyword">static</span> prec_t Sw_e, Sw_w, Sw_n, Sw_s, Sw_f, Sw_b;
<a name="l00220"></a>00220 
<a name="l00221"></a>00221     <span class="comment">// Lineal </span>
<a name="l00222"></a>00222   <span class="keyword">static</span> prec_t multx = k * dt / 
<a name="l00223"></a>00223     ( porosity * dx * dx * (1 - Srw - Sro) * mu_w );
<a name="l00224"></a>00224 
<a name="l00225"></a>00225   <span class="keyword">static</span> prec_t multy = k * dt / 
<a name="l00226"></a>00226     ( porosity * dy * dy * (1 - Srw - Sro) * mu_w );
<a name="l00227"></a>00227  
<a name="l00228"></a>00228   <span class="keyword">static</span> prec_t multz = k * dt / 
<a name="l00229"></a>00229     ( porosity * dz * dz * (1 - Srw - Sro) * mu_w );
<a name="l00230"></a>00230 
<a name="l00231"></a>00231   aE = 0.0; aW = 0.0; aN = 0.0; aS = 0.0; aF = 0.0; aB = 0.0; aP = 0.0; sp = 0.0;
<a name="l00232"></a>00232 
<a name="l00233"></a>00233   <span class="keywordflow">for</span> (<span class="keywordtype">int</span> ki = bk; ki &lt;= ek; ++ki) 
<a name="l00234"></a>00234     <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i =  bi; i &lt;= ei; ++i)
<a name="l00235"></a>00235       <span class="keywordflow">for</span> (<span class="keywordtype">int</span> j = bj; j &lt;= ej; ++j) {  
<a name="l00236"></a>00236 
<a name="l00237"></a>00237       <span class="comment">// Upwind</span>
<a name="l00238"></a>00238         <span class="keywordflow">if</span> ( phi_0(i+1, j, ki) &gt;= phi_0(i, j, ki) ) Sw_e = phi_0(i+1, j, ki);
<a name="l00239"></a>00239         <span class="keywordflow">else</span>                                        Sw_e = phi_0(i  , j, ki);
<a name="l00240"></a>00240         <span class="keywordflow">if</span> ( phi_0(i-1, j, ki) &gt;= phi_0(i, j, ki) ) Sw_w = phi_0(i-1, j, ki);
<a name="l00241"></a>00241         <span class="keywordflow">else</span>                                        Sw_w = phi_0(i  , j, ki);
<a name="l00242"></a>00242 
<a name="l00243"></a>00243         <span class="keywordflow">if</span> ( phi_0(i, j+1, ki) &gt;= phi_0(i, j, ki) ) Sw_n = phi_0(i, j+1, ki);
<a name="l00244"></a>00244         <span class="keywordflow">else</span>                                        Sw_n = phi_0(i, j, ki);
<a name="l00245"></a>00245         <span class="keywordflow">if</span> ( phi_0(i, j-1, ki) &gt;= phi_0(i, j, ki) ) Sw_s = phi_0(i, j-1, ki);
<a name="l00246"></a>00246         <span class="keywordflow">else</span>                                        Sw_s = phi_0(i, j, ki);
<a name="l00247"></a>00247 
<a name="l00248"></a>00248         <span class="keywordflow">if</span> ( phi_0(i, j, ki+1) &gt;= phi_0(i, j, ki) ) Sw_f = phi_0(i, j, ki+1);
<a name="l00249"></a>00249         <span class="keywordflow">else</span>                                        Sw_f = phi_0(i, j, ki);
<a name="l00250"></a>00250         <span class="keywordflow">if</span> ( phi_0(i, j, ki-1) &gt;= phi_0(i, j, ki) ) Sw_b = phi_0(i, j, ki-1);
<a name="l00251"></a>00251         <span class="keywordflow">else</span>                                        Sw_b = phi_0(i, j, ki);
<a name="l00252"></a>00252 
<a name="l00253"></a>00253       <span class="comment">// Lineal</span>
<a name="l00254"></a>00254         aE (i, j, ki) = (Sw_e - Srw) * multx;
<a name="l00255"></a>00255         aW (i, j, ki) = (Sw_w - Srw) * multx;
<a name="l00256"></a>00256         aN (i, j, ki) = (Sw_n - Srw) * multy;
<a name="l00257"></a>00257         aS (i, j, ki) = (Sw_s - Srw) * multy;
<a name="l00258"></a>00258         aF (i, j, ki) = (Sw_f - Srw) * multz;
<a name="l00259"></a>00259         aB (i, j, ki) = (Sw_b - Srw) * multz;
<a name="l00260"></a>00260         aP (i, j, ki) = aE (i, j, ki) + aW (i, j, ki) + 
<a name="l00261"></a>00261           aN (i, j, ki) + aS (i, j, ki) + aF (i, j, ki) + aB (i, j, ki);
<a name="l00262"></a>00262     }    
<a name="l00263"></a>00263 
<a name="l00264"></a>00264   <span class="comment">/* ----- Boundary conditions ----- */</span>
<a name="l00265"></a>00265 
<a name="l00266"></a>00266   applyBoundaryConditions3D();
<a name="l00267"></a>00267 
<a name="l00268"></a>00268 
<a name="l00269"></a>00269   <span class="comment">// Source for injection : </span>
<a name="l00270"></a>00270   sp (bi, bj, bk) +=  injection * dt / (porosity * dx * dy * dz);
<a name="l00271"></a>00271 
<a name="l00272"></a>00272 <span class="comment">/*</span>
<a name="l00273"></a>00273 <span class="comment">  sp (ei, ej) +=  injection * dt / (porosity * dx * dy);</span>
<a name="l00274"></a>00274 <span class="comment">  sp (bi, ej) +=  injection * dt / (porosity * dx * dy);</span>
<a name="l00275"></a>00275 <span class="comment">  sp (ei, bj) +=  injection * dt / (porosity * dx * dy);</span>
<a name="l00276"></a>00276 <span class="comment">*/</span>
<a name="l00277"></a>00277 
<a name="l00278"></a>00278   <span class="comment">// Sink for extraction :  </span>
<a name="l00279"></a>00279   sp (ei, ej, ek) -= injection * dt * phi_0(ei, ej, ek) / ( porosity * dx * dy * dz);
<a name="l00280"></a>00280   <span class="comment">//  sp (ei, ej, ek) -= injection * dt / ( porosity * dx * dy * dz);</span>
<a name="l00281"></a>00281 
<a name="l00282"></a>00282    <span class="comment">/***</span>
<a name="l00283"></a>00283 <span class="comment">    // I&#39;m using an explicit scheme, so the boundary conditions are</span>
<a name="l00284"></a>00284 <span class="comment">    // different than in the implicit case.</span>
<a name="l00285"></a>00285 <span class="comment"></span>
<a name="l00286"></a>00286 <span class="comment">  Range I(bi, ei), J(bj, ej), K(bk, ek);</span>
<a name="l00287"></a>00287 <span class="comment"></span>
<a name="l00288"></a>00288 <span class="comment">    // Dirichlet right side</span>
<a name="l00289"></a>00289 <span class="comment">  aP(ei, J, K) += aE(ei, J, K);</span>
<a name="l00290"></a>00290 <span class="comment">  sp(ei, J, K) = 2 * aE(ei, J, K) * p(ei+1, J, K);</span>
<a name="l00291"></a>00291 <span class="comment">  aE(ei, J, K) = 0;</span>
<a name="l00292"></a>00292 <span class="comment"></span>
<a name="l00293"></a>00293 <span class="comment">  // Neumann left side</span>
<a name="l00294"></a>00294 <span class="comment">  // Remember that Sw_e = 0.8 on the boundary, that is</span>
<a name="l00295"></a>00295 <span class="comment">  // the reason why sp(bi) has the form below.</span>
<a name="l00296"></a>00296 <span class="comment">  aP(bi, J, K) -= aW(bi, J, K) ;</span>
<a name="l00297"></a>00297 <span class="comment">  sp(bi, J, K) = aW(bi, J, K) * dx * ( 3.47e-7 * mu_w / k) ;</span>
<a name="l00298"></a>00298 <span class="comment">  aW(bi, J, K) = 0;</span>
<a name="l00299"></a>00299 <span class="comment">   ***/</span>
<a name="l00300"></a>00300     <span class="keywordflow">return</span> 0;
<a name="l00301"></a>00301 }
<a name="l00302"></a>00302 
<a name="l00303"></a>00303 
<a name="l00304"></a>00304 } <span class="comment">// Tuna namespace</span>
<a name="l00305"></a>00305 
<a name="l00306"></a>00306 
<a name="l00307"></a>00307 <span class="preprocessor">#endif //_BLES1_H_</span>
<a name="l00308"></a>00308 <span class="preprocessor"></span>
<a name="l00309"></a>00309 
<a name="l00310"></a>00310 
<a name="l00311"></a>00311 
<a name="l00312"></a>00312 
<a name="l00313"></a>00313 
<a name="l00314"></a>00314 
<a name="l00315"></a>00315 
<a name="l00316"></a>00316 
<a name="l00317"></a>00317 
<a name="l00318"></a>00318 
<a name="l00319"></a>00319 
<a name="l00320"></a>00320 
<a name="l00321"></a>00321 
<a name="l00322"></a>00322 
<a name="l00323"></a>00323 
<a name="l00324"></a>00324 
</pre></div></div>
</div>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Classes</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(5)"><span class="SelectionMark">&#160;</span>Typedefs</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>



<hr size="1">
<div align="center">
Last modification: Sun Aug 28 09:57:21 CDT 2011
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&copy; 2011 LMCS-UNAM
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Generated by <a href="http://www.doxygen.org/index.html">
<img src="doxygen.png" alt="doxygen" align="top" border="0" height="25"></a> 1.6.1 </div>

